home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ System Controls ToolTips.xpl < prev    next >
Text File  |  2002-04-12  |  3KB  |  97 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\ToolTips/BallonTips"
  5. "NAME"="Window ToolTip Options"
  6. "VERSION"="2.25"
  7. "OSVERSION"="001110"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Show ToolTips for window controls"
  10. "DESCRIPTION 1"="By default, Windows displays a tooltip for the window controls like close, maximize, minimize etc. This might be useful at the beginning, but it also is annoying after a while."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="see also: http://support.microsoft.com/support/kb/articles/q186/3/85.asp "
  15. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  16. "COMMENT 3"="Thanks to SMσK [mailto:smak-@gmx.net] for the bug-fix!"
  17.  
  18.  
  19. '0x80 = Popup Windows for default controls
  20. c_ValPopup=&H80
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.  if RegValueExists(UPM_GetUPMRegPath) then
  25.     if UPM_IsValueActivated(c_ValPopup)=true then
  26.        Call SetUIElement(1,true)
  27.     end if
  28.  else
  29.     Call Disable
  30.  end if
  31.  
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  Call UPM_SwitchValue(c_ValPopup,b)
  40.  
  41.  Call Logoff()
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.  
  47.  
  48. '----------------------------------------------------
  49. '*** UPM (UserPrefenceMask) Functions Version 1.0 ***
  50. '----------------------------------------------------
  51.  
  52. Function UPM_GetUPMRegPath
  53.  if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then '95/98/ME
  54.     UPM_GetUPMRegPath="HKCU\Control Panel\Desktop\UserPreferenceMask"
  55.  else 'NT/2K/XP (?)
  56.     UPM_GetUPMRegPath="HKCU\Control Panel\Desktop\UserPreferencesMask"
  57.  end if   
  58. End Function
  59.  
  60. Function UPM_IsValueActivated(ValueInHEX)
  61.  UPM_s=RegReadValue(UPM_GetUPMRegPath)
  62.  UPM_s=CStr(UPM_s)
  63.  UPM_s=left(UPM_s,2) 'extract first byte
  64.  UPM_sV="&H" & UPM_s 'convert to HEX
  65.  
  66.  if UPM_sV and ValueInHEX then
  67.     UPM_IsValueActivated=true
  68.  else
  69.     UPM_IsValueActivated=false
  70.  end if
  71. End Function
  72.  
  73. Sub UPM_SwitchValue(ValueInHEX,BoolActivated)
  74.  b=UPM_IsValueActivated(ValueInHEX)
  75.  if b=true and BoolActivated=true then
  76.     'do nothing, value already activated
  77.  else
  78.     if b=false and BoolActivated=false then
  79.        'do nothing, value already deactivated
  80.     else
  81.        UPM_sAll=RegReadValue(UPM_GetUPMRegPath)
  82.        UPM_sAll=CStr(UPM_sAll)
  83.        
  84.        UPM_s=left(UPM_sAll,2) 'extract first byte 
  85.        UPM_sV="&H" & UPM_s
  86.  
  87.        if BoolActivated=true then
  88.           UPM_sV=UPM_sV+ValueInHEX
  89.        else
  90.           UPM_sV=UPM_sV-ValueInHEX
  91.        end if
  92.  
  93.        UPM_s=Hex(UPM_sV) & right(UPM_sAll,len(UPM_sAll)-2)
  94.        Call RegWriteValue(UPM_GetUPMRegPath,UPM_s,3)
  95.     end if
  96.  end if
  97. End Sub